function ok = compare_vect(x,y)
  error_tolerance = 1e-9;
  ok = 0;
  diff = x-y;
  if sum(abs(diff)) < error_tolerance
    ok = 1;
  end
